home *** CD-ROM | disk | FTP | other *** search
- .286P ;use 286 instructions
- .Model Medium ;medium memory model
-
- Extrn WinVer:Far ;Windows Version API function
- Public GetVer ;DLL routines must be public
- Include LabNotes.Inc ;macros for prolog and epilog
-
- .CODE ;simplified code segment
-
- GetVer Proc Far ;Far procedure
- WinProlog ;Windows Prolog Macro
- Call WinVer ;returns version in AX
- WinEpilog ;Windows Epilog Macro
- Ret ;return to VB, no arguments to remove
- GetVer EndP
- END